home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 331 / gemfsc14 / aessrc14 / aesevnt5.s < prev    next >
Text File  |  1989-04-06  |  1KB  |  40 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.           .include  "aesfast.sh"
  9.  
  10. ;*************************************************************************
  11. ;*
  12. ;* Event manager routines 5 of n.
  13. ;*
  14. ;*************************************************************************
  15.  
  16. ;-------------------------------------------------------------------------
  17. ; evnt_mouse
  18. ;-------------------------------------------------------------------------
  19.  
  20. _evnt_mouse::
  21.           .cargs    #8,.flags,.mx,.my,.mw,.mh,.px.l,.py.l,.pbutton.l,.pstate.l
  22.           
  23.           link      a6,#-10
  24.           
  25.           AControl  22,5,5,0
  26.           
  27.           moveq.l   #-10,d2             ; -> intout
  28.           lea       .flags(a6),a1       ; -> intin
  29.           sub.l     a2,a2
  30.           
  31.           ACall     RET2HERE
  32.  
  33.           moveq.l   #-10,d1
  34.           lea       .px(a6),a1
  35.           jmp       (a0)
  36.  
  37.           
  38. ;         end of code
  39.  
  40.